home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / MacPerl ƒ / lib / FAccess.ph < prev    next >
Text File  |  1993-12-13  |  968b  |  42 lines
  1. # Faccess.ph -- constants to pass to &MacPerl'FAccess
  2. #
  3. # Matthias Neeracher 13Dec93
  4. #
  5.  
  6. # $TAB = &MacPerl'FAccess(FILE, &F_GTABINFO)
  7.  
  8. sub F_GTABINFO     {    0x6500;    }
  9.  
  10. # &MacPerl'FAccess(FILE, &F_STABINFO, TAB)
  11.  
  12. sub F_STABINFO     {    0x6501;    }
  13.  
  14. # ($FONTNAME, $FONTSIZE) = &MacPerl'FAccess(FILE, &F_GFONTINFO)
  15. # $FONTNUM = &MacPerl'FAccess(FILE, &F_GFONTINFO)
  16.  
  17. sub F_GFONTINFO    {    0x6502;    }
  18.  
  19. # &MacPerl'FAccess(FILE, &F_SFONTINFO, FONT [, SIZE])
  20.  
  21. sub F_SFONTINFO    {    0x6503;    }
  22.  
  23. # ($STARTSEL, $ENDSEL, $DISPLAYTOP) = &MacPerl'FAccess(FILE, &F_GSELINFO)
  24. # $STARTSEL = &MacPerl'FAccess(FILE, &F_GSELINFO)
  25.  
  26. sub F_GSELINFO        {    0x6506;    }
  27.  
  28. # &MacPerl'FAccess(FILE, &F_SSELINFO, $STARTSEL, $ENDSEL [, $DISPLAYTOP])
  29.  
  30. sub F_SSELINFO        {    0x6507;    }
  31.  
  32. # ($LEFT, $TOP, $RIGHT, $BOTTOM) = &MacPerl'FAccess(FILE, &F_GWININFO)
  33. # $TOP = &MacPerl'FAccess(FILE, &F_GWININFO)
  34.  
  35. sub F_GWININFO        {    0x6508;    }
  36.  
  37. # &MacPerl'FAccess(FILE, &F_SWININFO, LEFT, TOP [, RIGHT, BOTTOM])
  38.  
  39. sub F_SWININFO        {    0x6509;    }
  40.  
  41. 1;
  42.